home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amoslist.lzh / AMOSLIST / 000236_amos-request@svcs1.digex.net_Mon Sep 18 16:40:58 1995.msg < prev    next >
Internet Message Format  |  1995-10-02  |  3KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id QAA25353;  for <mcox@access.digex.net> ; Mon, 18 Sep 1995 16:40:57 -0400
  2. Received: (from daemon@localhost) by svcs1.digex.net (8.6.12/8.6.12) id OAA01207 for amos-out; Mon, 18 Sep 1995 14:09:39 -0400
  3. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2]) by svcs1.digex.net (8.6.12/8.6.12) with ESMTP id OAA01204 for <amos-list@svcs1.digex.net>; Mon, 18 Sep 1995 14:09:37 -0400
  4. Received: from mail.mel.aone.net.au (mail.mel.aone.net.au [203.12.176.157]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id OAA04829;  for <amos-list@access.digex.net> ; Mon, 18 Sep 1995 14:09:35 -0400
  5. Received: from kyoko.mpx.com.au (kyoko.mpx.com.au [203.2.75.2]) by mail.mel.aone.net.au (8.6.11/8.6.11) with ESMTP id EAA09340 for <amos-list@access.digex.net>; Tue, 19 Sep 1995 04:09:33 +1000
  6. Received: from cristal.mpx.com.au by kyoko.mpx.com.au with smtp
  7.     (Smail3.1.29.1 #7) id m0sukfA-0006O5C; Tue, 19 Sep 95 04:11 EST
  8. Received: from comlink.mpx.com.au by cristal.mpx.com.au with uucp
  9.     (Smail3.1.28.1 #3) id m0sujuX-0000QZC; Tue, 19 Sep 95 03:23 EDT
  10. Received: by comlink.mpx.com.au (V1.16/Amiga)
  11.     id AA024zo; Mon, 18 Sep 95 21:35:15 1100
  12. Date: Mon, 18 Sep 95 21:35:15 1100
  13. Message-Id: <9509190335.AA024zn@comlink.mpx.com.au>
  14. From: Darryl_Lewis@comlink.mpx.com.au (Darryl Lewis)
  15. To: amos-list@access.digex.net
  16. Subject: Re: Using the joystick in interface.
  17. Status: RO
  18. X-Status: 
  19.  
  20. > MC> that AMOS cannot tell the difference. You see the problem is, I want 
  21. > MC> to get interface programs working fully by using a joystick.
  22. > 
  23. > -----------------------------------------------------------------------
  24. > Every 1 Proc _JOYTEST
  25. > Every On
  26. > '
  27. > ' Interface stuff and main loop
  28. > '
  29. > Procedure _JOYTEST
  30. >    Every On
  31. >    If Jleft(1) Then Xmouse=Xmouse-1
  32. >    If Jright(1) Then Xmouse=Xmouse+1
  33. >    If Jup(1) Then Ymouse=Ymouse-1
  34. >    If Jdown(1) Then Ymouse=Ymouse+1
  35. > Endproc
  36. > -----------------------------------------------------------------------
  37.  
  38.  MCM> Hey, thats the easy bit.
  39.  
  40. > 
  41. > Don't know about the Fire/Left mouse button though! A tricky/damn-near-
  42. > impossible one.
  43.  
  44.  MCM> Thats what I need to know!
  45.  
  46. Time for an ex-hacker to rise from the dead again.....
  47.  
  48. Hit the Hardware!!!!
  49.  
  50. The buttons are pins 7 and 9 on the connector. Theses are bits 6 and 7 of
  51. CIAAPRA ($BFE001) A zero means that the switch is closed.
  52. Therefore try, 
  53.  
  54. Peek($BFE001) and %1100000. (?)
  55.  
  56. or something like that, This is off the top of my head. I might have the
  57. bit order backwards, but that is basically the way to do it.
  58.  
  59. So no complaints about hitting the hardware guys, if theres another way,
  60. let us know.
  61. Darryl
  62.  
  63. -- Via DLG Pro v1.0
  64.  
  65.                #####\             _             /#####
  66.                #( )# |          _( )__         | #( )# 
  67.                ##### |         /_    /         | #####
  68.                #" "# |     ___m/I_ //_____     | #" "#
  69.                # O # |____#-x.\ /++m\ /.x-#____| # O #
  70.                #m.m# |   /" \ ///###\\\ / "\   | #m.m#
  71.                #####/    ######/     \######    \#####